home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / FLOPPY / SICL / WIN31 / DISK1 / SER_DEV.BA_ / SER_DEV.BA
Encoding:
Text File  |  2001-03-02  |  895 b   |  36 lines
  1.  
  2. '  ser_dev.bas
  3. '  This example program takes a measurement from a DVM using a
  4. '  SICL device session.
  5. Sub Main ()
  6.    Dim dvm As Integer
  7.    Dim strres As String * 20
  8.    Dim i As Integer
  9.    Dim actual As Long
  10.  
  11.    ' Open the multimeter session
  12.    dvm = iopen("COM1,488")
  13.    Call itimeout(dvm, 10000)
  14.  
  15.    ' Prepare the multimeter for measurements
  16.    Call iwrite(dvm, ByVal "*RST" + Chr$(10), 5, 1, ByVal 0&)
  17.    Call iwrite(dvm, ByVal "SYST:REM" + Chr$(10), 9, 1, ByVal 0&)
  18.  
  19.    ' Take a measurement
  20.    Call iwrite(dvm, ByVal "MEAS:VOLT:DC?" + Chr$(10), 14, 1, ByVal 0&)
  21.  
  22.    ' Read the results
  23.    Call iread(dvm, ByVal strres, 20, ByVal 0&, actual)
  24.  
  25.    ' Print the results
  26.    MsgBox "Result is " + Left$(strres, actual), MB_ICON_EXCLAMATION
  27.  
  28.    ' Close the multimeter session
  29.    Call iclose(dvm)
  30.  
  31. '  Tell SICL to cleanup for this task
  32.    Call siclcleanup
  33.  
  34. End Sub
  35.  
  36.